/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / utils.elc / utils.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 62 72 69 6e 67 2d 65 6d |.(defun |bring-em|
|00000010| 61 63 73 2d 74 6f 2d 74 | 68 65 2d 66 72 6f 6e 74 |acs-to-t|he-front|
|00000020| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00000030| 22 c2 c3 c4 21 c5 5c 22 | 18 c6 c4 08 c7 c5 24 88 |"...!.\"|......$.|
|00000040| c6 c4 08 c8 09 24 88 c9 | 08 21 29 87 22 20 5b 75 |.....$..|.!)." [u|
|00000050| 73 20 6b 43 75 72 72 65 | 6e 74 50 72 6f 63 65 73 |s kCurre|ntProces|
|00000060| 73 20 6d 61 6b 65 2d 73 | 74 72 69 6e 67 20 63 3a |s make-s|tring c:|
|00000070| 73 69 7a 65 6f 66 20 50 | 72 6f 63 65 73 73 53 65 |sizeof P|rocessSe|
|00000080| 72 69 61 6c 4e 75 6d 62 | 65 72 20 30 20 63 3a 73 |rialNumb|er 0 c:s|
|00000090| 6c 6f 74 73 65 74 20 68 | 69 67 68 4c 6f 6e 67 4f |lotset h|ighLongO|
|000000a0| 66 50 53 4e 20 6c 6f 77 | 4c 6f 6e 67 4f 66 50 53 |fPSN low|LongOfPS|
|000000b0| 4e 20 53 65 74 46 72 6f | 6e 74 50 72 6f 63 65 73 |N SetFro|ntProces|
|000000c0| 73 5d 20 38 29 29 0a 0a | 28 64 65 66 75 6e 20 68 |s] 8))..|(defun h|
|000000d0| 65 78 2d 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 |ex-strin|g-to-int|
|000000e0| 20 28 73 74 72 69 6e 67 | 29 20 28 62 79 74 65 2d | (string|) (byte-|
|000000f0| 63 6f 64 65 20 22 c4 08 | 21 83 0a 00 08 82 76 00 |code "..|!.....v.|
|00000100| c5 08 47 21 83 15 00 c6 | 82 76 00 c7 08 c8 c9 4f |..G!....|.v.....O|
|00000110| 21 1a 0a c7 ca 21 59 85 | 29 00 0a c7 cb 21 58 83 |!....!Y.|)....!X.|
|00000120| 34 00 0a c7 ca 21 5a 82 | 69 00 0a c7 cc 21 59 85 |4....!Z.|i....!Y.|
|00000130| 41 00 0a c7 cd 21 58 83 | 4e 00 ce 0a c7 cc 21 5a |A....!X.|N.....!Z|
|00000140| 5c 5c 82 69 00 0a c7 cf | 21 59 85 5b 00 0a c7 d0 |\\.i....|!Y.[....|
|00000150| 21 58 83 68 00 ce 0a c7 | cf 21 5a 5c 5c 82 69 00 |!X.h....|.!Z\\.i.|
|00000160| c6 1b 0b d1 d2 d3 08 c6 | c8 4f 21 5c 22 5c 5c 2a |........|.O!\"\\*|
|00000170| 87 22 20 5b 73 74 72 69 | 6e 67 20 74 20 63 20 70 |." [stri|ng t c p|
|00000180| 6c 61 63 65 20 6e 75 6d | 62 65 72 70 20 7a 65 72 |lace num|berp zer|
|00000190| 6f 70 20 30 20 73 74 72 | 69 6e 67 2d 74 6f 2d 63 |op 0 str|ing-to-c|
|000001a0| 68 61 72 20 2d 31 20 6e | 69 6c 20 22 30 22 20 22 |har -1 n|il "0" "|
|000001b0| 39 22 20 22 61 22 20 22 | 66 22 20 31 30 20 22 41 |9" "a" "|f" 10 "A|
|000001c0| 22 20 22 46 22 20 2a 20 | 31 36 20 68 65 78 2d 73 |" "F" * |16 hex-s|
|000001d0| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 5d 20 31 39 |tring-to|-int] 19|
|000001e0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 65 6e 63 6f 64 |))..(def|un encod|
|000001f0| 65 2d 6c 6f 6e 67 2d 69 | 6e 74 65 67 65 72 20 28 |e-long-i|nteger (|
|00000200| 69 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |i) (byte|-code ".|
|00000210| c3 c4 5c 22 18 c5 08 c4 | c6 09 24 88 08 29 87 22 |..\"....|..$..)."|
|00000220| 20 5b 73 20 69 20 6d 61 | 6b 65 2d 73 74 72 69 6e | [s i ma|ke-strin|
|00000230| 67 20 34 20 30 20 65 6e | 63 6f 64 65 2d 69 6e 74 |g 4 0 en|code-int|
|00000240| 65 72 6e 61 6c 20 6c 6f | 6e 67 5d 20 36 29 29 0a |ernal lo|ng] 6)).|
|00000250| 0a 28 64 65 66 75 6e 20 | 50 74 6f 43 73 74 72 20 |.(defun |PtoCstr |
|00000260| 28 73 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |(s) (byt|e-code "|
|00000270| c2 09 c3 c4 23 18 09 c5 | 08 54 4f 29 87 22 20 5b |....#...|.TO)." [|
|00000280| 6e 20 73 20 65 78 74 72 | 61 63 74 2d 69 6e 74 65 |n s extr|act-inte|
|00000290| 72 6e 61 6c 20 30 20 75 | 6e 73 69 67 6e 65 64 2d |rnal 0 u|nsigned-|
|000002a0| 63 68 61 72 20 31 5d 20 | 34 29 29 0a 0a 28 64 65 |char 1] |4))..(de|
|000002b0| 66 75 6e 20 43 74 6f 50 | 73 74 72 20 28 73 29 20 |fun CtoP|str (s) |
|000002c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 09 47 18 08 |(byte-co|de ".G..|
|000002d0| c4 56 83 0d 00 c4 82 0e | 00 08 1a c5 09 50 1b c6 |.V......|.....P..|
|000002e0| 0b c7 c8 0a 24 88 0b 2b | 87 22 20 5b 6e 20 73 20 |....$..+|." [n s |
|000002f0| 6d 20 75 20 32 35 35 20 | 22 20 22 20 65 6e 63 6f |m u 255 |" " enco|
|00000300| 64 65 2d 69 6e 74 65 72 | 6e 61 6c 20 30 20 63 68 |de-inter|nal 0 ch|
|00000310| 61 72 5d 20 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |ar] 5)).|.(defun |
|00000320| 6e 6d 61 70 63 61 72 20 | 28 66 20 26 72 65 73 74 |nmapcar |(f &rest|
|00000330| 20 78 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | x) (byt|e-code "|
|00000340| 08 40 3f 83 0a 00 c1 82 | 1a 00 c3 0a c4 c5 08 5c |.@?.....|.......\|
|00000350| 22 5c 22 c3 c6 0a c4 c7 | 08 5c 22 23 42 87 22 20 |"\".....|.\"#B." |
|00000360| 5b 78 20 6e 69 6c 20 66 | 20 61 70 70 6c 79 20 6d |[x nil f| apply m|
|00000370| 61 70 63 61 72 20 63 61 | 72 20 6e 6d 61 70 63 61 |apcar ca|r nmapca|
|00000380| 72 20 63 64 72 5d 20 39 | 29 29 0a 0a 28 64 65 66 |r cdr] 9|))..(def|
|00000390| 75 6e 20 6d 61 6b 65 2d | 72 67 62 20 28 72 20 67 |un make-|rgb (r g|
|000003a0| 20 62 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 | b) (byt|e-code "|
|000003b0| c4 c5 c6 21 c7 5c 22 18 | c8 c6 08 c9 09 24 88 c8 |...!.\".|.....$..|
|000003c0| c6 08 ca 0a 24 88 c8 c6 | 08 cb 0b 24 88 08 29 87 |....$...|...$..).|
|000003d0| 22 20 5b 73 20 72 20 67 | 20 62 20 6d 61 6b 65 2d |" [s r g| b make-|
|000003e0| 73 74 72 69 6e 67 20 63 | 3a 73 69 7a 65 6f 66 20 |string c|:sizeof |
|000003f0| 52 47 42 43 6f 6c 6f 72 | 20 30 20 63 3a 73 6c 6f |RGBColor| 0 c:slo|
|00000400| 74 73 65 74 20 72 65 64 | 20 67 72 65 65 6e 20 62 |tset red| green b|
|00000410| 6c 75 65 5d 20 39 29 29 | 0a 0a 28 64 65 66 75 6e |lue] 9))|..(defun|
|00000420| 20 6d 61 6b 65 2d 72 65 | 63 74 20 6e 69 6c 20 28 | make-re|ct nil (|
|00000430| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 21 c3 |byte-cod|e "...!.|
|00000440| 5c 22 87 22 20 5b 6d 61 | 6b 65 2d 73 74 72 69 6e |\"." [ma|ke-strin|
|00000450| 67 20 63 3a 73 69 7a 65 | 6f 66 20 52 65 63 74 20 |g c:size|of Rect |
|00000460| 30 5d 20 34 29 29 0a    |                         |0] 4)). |        |
+--------+-------------------------+-------------------------+--------+--------+